home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / t3script.arc / MICHTRON.SLT < prev    next >
Text File  |  1990-04-14  |  3KB  |  67 lines
  1. /////////////////////////////////////////////////////////////////////////
  2. //          MICHTRON.SLT  -  by Terry Robertson (October 1988)         //
  3. // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
  4. //                                                                     //
  5. //    SCRIPT TO LOG-ON TO A MICHTRON SYSTEM.                           //
  6. //                                                                     //
  7. //    Please note that this script expects you to have assigned your   //
  8. //    FULL NAME to function key F4. The easiest way to do this is by   //
  9. //    using the FKEY script in this collection.                        //
  10. //                                                                     //
  11. //    The script is written so that it will abort if you have not      //
  12. //    completed the relevant PASSWORD entry in the Dialling Directory. //
  13. //                                                                     //
  14. //    I have assumed that you want to use the linked scripts CONNECT   //
  15. //    and CAPTURE. If you do not have these or prefer not to use       //
  16. //    them you should "comment out" the two lines starting "call"      //
  17. //    by simply putting "//" before the word "call".                   //
  18. //                                                                     //
  19. //    TELIX supports ANSI graphics and I have assumed that you wish    //
  20. //    to take advantage of this feature. If not you should change "y"  //
  21. //    to "n" in the section below dealing with graphics.               //
  22. //                                                                     //
  23. /////////////////////////////////////////////////////////////////////////
  24.  
  25.  
  26.  
  27.  
  28. str s[30];
  29.  
  30. main()
  31.  
  32. {
  33.  alarm(1);
  34.  
  35.  call("connect", 1);                    // Gives "connect" information by
  36.                                         // calling Connect.slc script
  37.  call("capture", 1);                    // Opens new capture file by calling
  38.                                         // Capture.slc script
  39.  
  40.  if (not _entry_pass)                   // no pass, so didn't recog. board
  41.   {
  42.    prints ("Sorry, I don't know the password for this BBS!");
  43.    return;
  44.   }
  45.  
  46.  if (not waitfor("Username:", 180))      // if no prompt for name
  47.   {
  48.    prints("Log-on failed!");
  49.    return;                              // ...abort
  50.   }
  51.  
  52.  keyget(0x3e00, 0, s);
  53.  delchrs(s, strlen(s) - 2, strlen(s));
  54.  cputs(s);
  55.  cputs("^M");
  56.  
  57.  if (not waitfor("Password:", 20))       // if no prompt for password
  58.   {
  59.    prints("Log-on failed!");
  60.    return;                              // ...abort
  61.   }
  62.  
  63.  cputs(_entry_pass);                    // send password
  64.  cputs("^M");
  65.  
  66. }
  67.